C  THIS PLOTS ON CALCOMP (OR TO XGP) STUFF FROM MDSK.DMP(DO PRNTX]
C  LOAD WITH LOOK.FAI (FOR UNPAC ROUTINE)
	COMMON I,J,K
	DIMENSION M(1024)
	CALL PLOTS(N)
1	READ(1)N,(M(J),J=1,N)
	DO 3 JJ=1,N
	CALL UNPAC(M(JJ),I)
C  I  IS FIRST OF THREE LOCATIONS.
3	CALL PLOT(I,J,K)
	IF(N.EQ.1024)GO TO 1
	TYPE 2
2	FORMAT(' DON''T FORGET "FOR01.DAT" ON DSK.')
	END